home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
A-Monthly Disks
/
(c)aae.d64
/
wedge 64 instruc
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2007-02-04
|
10KB
|
259 lines
10 POKE53281,12:POKE53280,12:PRINTCHR$(14)
15 POKE198,.:PRINT"[144][147]S[146]CREEN OR P[146]RINTER (S/P)?"
16 WAIT198,1:PRINT"[147]";:GETP$:IFP$="P"THENOPEN4,4,4
20 FORI=1TO22
30 READA$
40 IFA$="[157]"THENGOSUB80:END
50 PRINTA$:IFP$="P"THENPRINT#4,A$
60 NEXT
70 GOSUB80:GOTO20
80 PRINT" PRESS A KEY TO CONTINUE[146]";
90 GETB$:IFB$=""THEN90
100 PRINT"[147]":RETURN
10000 DATA" [215][197][196][199][197] 64 [201][206][211][212][210][213][195][212][201][207][206][211]
10010 [131]" (null)REPARED BY ASCRED (null)AYBERGER
10020 DATA" [196]ECEMBER 4, 1984
10030 [131]"
10040 DATA"[204][207][193][196] [215][201][212][200]: [193][195][212][201][214][193][212][197] [215][201][212][200]:
10060 [131]"
10070 DATA"[204][207][193][196]'[215][197][196][199][197]-64-$7000.[195]',8,1 [211][217][211]7*4096
10080 [131]"(null)(null)ATNSTR$'(null)VALSTR$CHR$VAL-64-$8000.LEN',8,1 (null)(null)(null)8*4096
10090 DATA"[204][207][193][196]'[215][197][196][199][197]-64-$9000.[195]',8,1 [211][217][211]9*4096
10100 [131]"(null)(null)ATNSTR$'(null)VALSTR$CHR$VAL-64-$LEN000.LEN',8,1 (null)(null)(null)12*4096
10110 DATA"
10120 [131]" LEN(null)(null)(null)ATN(null)STR$(null)
10130 DATA"
10140 [131]"(null)(null)(null)(null)ATN(null) VAL(null)ATN(null)(null)(null)VAL/LEN(null)(null)(null)VAL(null)(null)(null)
10150 DATA"
10160 [131]">ATNSTR$MID$(null)(null)(null) LENOLOR PEEKAR FOR
10170 DATA" ADJUSTING TV/
10180 [131]" MONITOR
10190 DATA"
10200 [131]">ATN(null)(null)(null) RIGHT$NCREMENT# >AUTO10 WILL
10210 DATA" GIVE LINE
10220 [131]" NUMBERS
10230 DATA" INCREMENTED
10240 [131]" BY 10 FOLLOWING
10250 DATA" THE ENTRY OF A
10260 [131]" LINE NUMBER
10270 DATA" WITH A BASIC
10280 [131]" COMMAND. RIGHT$T IS
10290 DATA" TERMINATED
10300 [131]" BY ENTERING ATN(null)(null)(null)
10310 DATA" WITHOUT A
10320 [131]" INCREMENT#.
10330 DATA"
10340 [131]">LEN(null)(null)STR$ (null)AME AS (null)(null)(null)64738
10350 DATA" [212]HE [215]EDGE CAN BE
10360 [131]" REACTIVATED WITH
10370 DATA" THE APPROPRIATE
10380 [131]" (null)(null)(null) COMMAND (7,
10390 DATA" 8,9,OR12*4096)
10400 [131]"
10410 DATA">[195][207][204][207][213][210]#,#,# 1ST # = [207]UTSIDE
10420 [131]" BOADER COLOR
10430 DATA" 2ND # = [211]CREEN
10440 [131]" BACKGROUND COLOR
10450 DATA" 3RD # = [195]URSOR
10460 [131]" COLOR
10470 DATA"
10480 [131]">STR$VAL(null) LINE# RANGE >DEL-100 WILL
10490 DATA" DELETE ALL LINES
10500 [131]" UP TO AND
10510 DATA" INCLUDING LINE
10520 [131]" 100.
10530 DATA" >DEL100-200 WILL
10540 [131]" DELETE LINES 100
10550 DATA" THROUGH AND
10560 [131]" INCLUDING LINE
10570 DATA" 200.
10580 [131]" >DEL200- WILL
10590 DATA" DELETE LINES 200
10600 [131]" THROUGH THE LAST
10610 DATA" PROGRAM LINE.
10620 [131]"
10630 DATA">[196][211] [210]EADS THE DISK
10640 [131]" ERROR CHANNEL
10650 DATA" AND DISPLAYS
10660 [131]" ITS STATUS.
10670 DATA"
10680 [131]">LEFT$VAL(null)(null) (null)ROVIDES A LIST
10690 DATA" OF COMMANDS
10700 [131]" AVAILABLE.
10710 DATA"
10720 [131]">LEFT$VAL(null) #(STR$EC OR $LEFT$EX) >HEX49152 WILL
10730 DATA" GIVE THE [200]EX
10740 [131]" EQIVALENT
10750 DATA" ($C000).
10760 [131]" >HEX$C000 WILL
10770 DATA" GIVE THE [196]ECIMAL
10780 [131]" EQIVALENT
10790 DATA"
10800 [131]">LEFT$(null)(null)(null)/CMD/,LINE RANGE >HUNT/POKE/ WILL
10810 DATA" LIST EVERY LINE
10820 [131]" WHERE A 'POKE'
10830 DATA" COMMAND OCCURS
10840 [131]" WITHIN YOUR
10850 DATA" PROGRAM.
10860 [131]"
10870 DATA">HUNT/POKE/,200-400 WILL LIST EVERY
10880 [131]" LINE BETWEEN 200
10890 DATA" AND 400 THAT HAS
10900 [131]" A 'POKE' COMMAND
10910 DATA" IN IT.
10920 [131]">LEFT$(null)(null)(null)'STRING',LN RANGE >HUNT'RIGHT$(null)' WILL
10930 DATA" FIND AND DISPLAY
10940 [131]" EVERY LINE
10950 DATA" CONTAINING THE
10960 [131]" LETTERS 'IT'(EG
10970 DATA" IT, EXIT, ETC)
10980 [131]"
10990 DATA">[204][207][207][203] [212]HIS COMMAND
11000 [131]" PROVIDS A LIST
11010 DATA" OF PROGRAM
11020 [131]" VARIABLES AND
11030 DATA" THEIR CURRENT
11040 [131]" VALUES. (null)NLY
11050 DATA" VARIABLES THAT
11060 [131]" HAVE BEEN
11070 DATA" DEFINED (USED)
11080 [131]" ARE DISPLAYED.
11090 DATA" [212]HE VAIABLES ARE
11100 [131]" PRINTED IN SUCH
11110 DATA" A WAY THAT THEY
11120 [131]" CAN BE EDITED
11130 DATA" WITH THE SCREEN
11140 [131]" EDITOR SO THAT A
11150 DATA" PROGRAM CAN BE
11160 [131]" STOPPED, EDITED
11170 DATA" TO NEW VALUES,
11180 [131]" AND THE 'LEN(null)(null)(null)'
11190 DATA" COMMAND GIVEN TO
11200 [131]" CONTINUE THE
11210 DATA" PROGRAM WITH THE
11220 [131]" NEW VALUES.
11230 DATA"
11240 [131]">(null)VAL(null) ??? RIGHT$ HAVE NOT
11250 DATA" BEEN ABLE TO GET
11260 [131]" THIS TO WORK.
11270 DATA"
11280 [131]">(null)VAL(null)CHR$VAL'FILENAME' >MERGE'SETUP'
11290 DATA" WILL MERGE THE
11300 [131]" PROGRAM 'SETUP'
11310 DATA" CONTAINED ON THE
11320 [131]" DISK WITH THE
11330 DATA" PROGRAM YOU
11340 [131]" HAVE IN THE
11350 DATA" COMPUTER'S
11360 [131]" MEMORY.
11370 DATA"
11380 [131]">(null) 1ST ROUND
11390 DATA">[206]'FILENAME' 2ND ROUND
11410 [131]" >(null) WILL PRINT
11420 DATA" FILENAME(OR LAST
11430 [131]" VARIABLE HUNTED
11440 DATA" FOR) TO THE
11450 [131]" SCREEN WITHIN ''
11460 DATA" AND FOLLOWED BY
11470 [131]" ,8. RIGHT$T CAN THEN
11480 DATA" BE USED FOR
11490 [131]" SAVING/LOADING
11500 DATA" THE FILEMAME.
11510 [131]"
11520 DATA">[207][198][198] [196]IACTIVATES THE
11530 [131]" (null)EDGE PROGRAM.
11540 DATA"
11550 [131]">(null)VAL(null)(null)(null) ST#,INC#,RANGE >RENUM10,10 WILL
11560 DATA" RENUMBER THE
11570 [131]" ENTIRE PROGRAM
11580 DATA" STARTING WITH
11590 [131]" LINE 10 AND
11600 DATA" INCREMENTED BY
11610 [131]" 10.
11620 DATA"
11630 [131]">RENUM150,2,100-200 WILL RENUMBER
11640 DATA" LINE 100
11650 [131]" THRU 200
11660 DATA" STARTING WITH
11670 [131]" 150 AND
11680 DATA" INCREMENTED
11690 [131]" BY 2
11700 DATA"
11710 [131]">(null)ATN(null)VAL'FILENAME' >SAVE'TEST WILL
11720 DATA" SAVE A FILE
11730 [131]" NAMED 'TEST' AND
11740 DATA" DISPLAY THE
11750 [131]" ERROR CHANNEL
11760 DATA" READING.
11770 [131]" >SAVE'@0:TEST
11780 DATA" WILL DO A SAVE
11790 [131]" AND REPLACE OF
11800 DATA" THE FILE NAMED
11810 [131]" 'TEST' AND
11820 DATA" DISPLAY THE
11830 [131]" ERROR CHANNEL
11840 DATA" READING.
11850 [131]"
11860 DATA">[211][197][206][196]'DISK COMMAND >SEND'S0:TEST
11870 [131]" WILL SCRATCH THE
11880 DATA" FILE NAMED
11890 [131]" 'TEST' FROM THE
11900 DATA" DISK.
11910 [131]" >SEND'N0:FIVE,GG
11920 DATA" WILL FORMAT A
11930 [131]" DISKETTE AND
11940 DATA" IDENTIFY IT AS
11950 [131]" 'FIVE' WITH A
11960 DATA" DISK ID OF 'GG'
11970 [131]" >SEND'(null)0:NEW=OLD
11980 DATA" WILL CHANGE THE
11990 [131]" NAME OF A
12000 DATA" FILE FROM 'OLD'
12010 [131]" TO 'NEW'.
12020 DATA" [193]NY OF THE 1541
12030 [131]" DISK COMMANDS
12040 DATA" CAN BE SENT
12050 [131]" USING THE >SEND
12060 DATA" COMMAND. [211]EE
12070 [131]" YOUR MANUAL
12080 DATA" OTHER COMMANDS.
12090 [131]"
12100 DATA">[211][212][193][210][212]'FILENAME >START'PLAYBALL
12110 [131]" WILL GIVE YOU
12120 DATA" THE STARTING
12130 [131]" ADDRESS IN LEFT$EX
12140 DATA" AND [196]ECIMAL FOR
12150 [131]" THE PROGRAM
12160 DATA" CALLED
12170 [131]" 'PLAYBALL'
12180 DATA"
12190 [131]">$ (null)RINTS THE DISK
12200 DATA" DIRECTORY TO THE
12210 [131]" SCREEN WITHOUT
12220 DATA" DESTORYING ANY
12230 [131]" PROGRAM RESIDING
12240 DATA" IN MEMORY. [212]HE
12250 [131]" '?' AND '*' CAN
12260 DATA" BE USED WITH THE
12270 [131]" COMMAND FOR
12280 DATA" PATTERN
12290 [131]" MATCHING.
12300 DATA"
12310 [131]">/'FILENAME >/'MLX WILL
12320 DATA" LOAD A PROGRAM
12330 [131]" CALLED 'MLX'.
12340 DATA"
12350 [131]">/'SETUP':SHIFTED RUN/STOP WILL LOAD
12360 DATA" AND RUN A
12370 [131]" BASIC
12380 DATA" PROGAM.
12385 [131]"
12390 DATA" [205][204] PROGRAMS WILL
12400 [131]" BE LOADED TO
12410 DATA" THEIR PROPER
12420 [131]" LOAD ADDRESS
12430 DATA" USING THIS
12440 [131]" COMMAND.
12450 DATA"
12460 [131]"CMD